#lang racket

(define (contain-doll? a-list-of-symbols)
  (cond
    [(empty? a-list-of-symbols) false]
    [else (cond
            [(symbol=? (first a-list-of-symbols) 'doll) true]
            [else (contain-doll? (rest a-list-of-symbols))])
     ])
  )

(define a-list 
  (cons 'stall
    (cons 'wall
       (cons 'doll empty)))
  )

(contain-doll? a-list)
